home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / demdat.arc / STKRLE.SBP < prev    next >
Encoding:
Text File  |  1990-06-01  |  1.3 KB  |  66 lines
  1. SBP
  2.   ╜   STKRLE
  3.   ╜   New Lows report
  4.   ╜   Last updated Jan 21, 90
  5.  
  6.   │ _ wrerror
  7.  hd1$ "New Price Lows Report at "  ( Q,"mmm dd,yy")
  8.  hd12$ "Ref: STKRLE"
  9.  
  10. m1:
  11.   ┴
  12.   } ┴
  13.   {@1;"Number of new lows: ";&15 ( X,"99999.")
  14.   {
  15.   Æ ┴
  16.  
  17.   ƒ
  18.   {@1;hd1$;@65;hd12$
  19.   {@31;"------ Price Data -----"
  20.   {@1;"Mkt  Sector   Symbol    Units    High     Low  Latest  Cap (m) Earnings P/E"
  21.   {@1;"---- -------- --------- ----- ------- ------- ------- -------- -------- ---"
  22.   Æ ƒ
  23.  
  24.   ₧Exchange.STOCKS
  25.   Ç ₧Exchange.STOCKS
  26.   {@1;&16Exchange.STOCKS
  27.   Æ ₧
  28.  
  29.   } ₧Exchange.STOCKS
  30.   {
  31.   Æ ₧
  32.  
  33.   ╔@1;&4Market.STOCKS;@6;&8Sector.STOCKS;@15;&9Symbol.STOCKS;@25;&5Units.CURRENCY;@31;&7Year_High.STOCKS;
  34.  @39;&7Year_Low.STOCKS;@47;&7Price Middle.STOCKS;@55;&8Cap Million.STOCKS;&9Last_Earnings.STOCKS;&4PE ratio.STOCKS
  35.   ╨Currency.STOCKS Currency.CURRENCY  (Price Middle.STOCKS     Year_Low.STOCKS  6(Price Date.STOCKS)  6(Date of Low.STOCKS))
  36.   ╡Exchange.STOCKS
  37.  
  38. m2: 
  39.   íp$ "d" p
  40.  ╩ ╦ss14$
  41.  ╧ Ñ  ▀
  42.   Æ í
  43.  
  44. repeat: 
  45.   ┬ms3$,"",135,a%
  46.   ía% 0 p wrexit
  47.   íp$ "p" p ╣;
  48.   wm1
  49.  
  50. rexit: 
  51.   ä"menu"
  52.  
  53. rerror: ╜ On error
  54.  res% 0
  55.   í & 11 p
  56.  ┬ms21$,ms22$,130,a%: ía% 1 pres% 1
  57.   ^ í & 27 p
  58.  ┬ms11$,ms12$,100,a%:res% 2
  59.   ^
  60.  ┬ (( &),"",113,a%:res% 1
  61.   Æ í
  62.   íres% 1 p yrepeat 
  63.   íres% 2 p yrexit
  64.   É
  65.  
  66.